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Intelligent Telephone Prefix Dialer, standalone POTS environment 
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Intelligent Telephone Prefix 
Dialer embedded in an ISDN 
telephone set 
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Figure 4 
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Intelligent Prefix Dialer Integrated into Service 
Provider *s Advanced Intelligent Network Equipment 



Intelligent Peripheral 
(IP) 




Service Switching Point, SSP 



Service Control Point, SCP 



Control Logic at SCP 

Analyze data 
triggered from Call 
Control at SSP 
If redial with prefix is 
required, append user 
dialed number to 
default dial prefix in 
user options database 
and send resultant 
digit sequence back to 
SSP 

else send "dial as is" 
message to SSP 



Call Control at SSP, IP: 
Capture and count dtmf digits 
Time interdigit delay 
Timeout to close digit sequence 
Report resuhs to SCP 
Receive Dial String fi-om SCP 
Dial Digits to complete call 



User Options Interface at SSP/IP 

• Capture star code for 
Intelligent Prefix Dialer 
options setup and send to SCP 

• Receive dial tone stutter 
prompt from IP, capture 
default prefix from user, and 
send codes to SCP 

• Receive dial tone stutter/voice 
acknowledgement from IP 



User Options Recording at SCP 

• Store default prefix in user 
options database for the 
Intelligent Prefix Dialer Service 

• Send Acknowledge to SSP 



Figure 5 
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INTELLIGENT TELEPHONE PREFIX DIALER PSEUDOCODE 

Version Beta 3.0 



Subroutines 

DISPLAYPREFIX@ 
LINEMONITOR® 

MOMTORLINE® 

CAPTUREDIGITS® 

CAPOPTIONSTRINGS® 

CAPREFIXSTRING@ 

FLASHLINE® 

GETNDX@ 

CHECK_FOR_TEN@ 

DIALNUMBER@ 

PARSEOPTIONS® 

PARSESTRING® 



Data 



LENGTH 

TABLE 

SUM 

COUNT 

TELN0(8) 

PREFIX 

DIALTONE FLAG 



DL\L_STRING(10) 

USER_REQUEST_FLAG 
NDX 

NUMBER_OF_DIGITS_CAPTURED 

ON_HOOK_TIME_COUNTER 
BYPASS 



/* length of table*/ 

/♦start of table*/ 

/*sum of digits*/ 

/*count of digits*/ 

/♦user dialed digits*/ 

/♦user defined dial prefix^/ 

/♦Flag to indicate line state ♦/ 

/♦ On Hook = 0, Off Hook = 1 ♦/ 

/♦ Line one to Off Hook Line two*/ 

/♦The reparsed dial string necessary to complete */ 

/♦thecall^/ 

/♦Flag to initiate user input of prefix code*/ 
/♦# Pointer for user TELNO entries 
/♦intoDIALSTRING*/ 

/*number of digits received by dtmf receiver before*/ 
/*tinieout*/ 

/*amount of time that receiver is on hook*/ 
/*bypass bit, if set to 1, bypasses flashook 2 and 3*/ 
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Program MAIN 

/♦Declare and initialize all variables*/ 
Declare and Intitilize Hardware specific variables for dtmf transceiver and other hardware 



Dtmf 
Bypass 
Dt_flag 
Dt^det 

Diahone_flag var bit 
Number_of_Digits_Captured 

Digit var byte 

I var word 

L var byte 

K var bit 

Ndx var nib 



var 
var 
var 
var 

var 



byte 
byte 
bit 

INL.bit2 
byte 



/♦Detect bit from dtmf receiver*/ 



/♦Range index to telnoQ*/ 



/♦Index of digits to dial by autodialer^/ 



Gosub GETNDX /♦Get ndx from EEPROM^/ 

For I = 1 to ndx - 1 

Get prefix code from EEPROM and place into dial_string(I) 
next 

GOSUB DISPLAYPREFK /♦Show the stored dialing prefix^/ 
CAPDIGITS: 

GOSUB CAPTUREDIGITS /♦Start listening for dial string digits entered by user*/ 
If NUMBER_OF_DIGITS_CAPTURED o (10 - NDX) + 1 then 
goto INHIBITDIAL 

fi 



GOSUB PARSESTRING /♦Parse the TELNOQ into DIAL_STRINGO 

Pause 160 /*Time delay before initiating flash hook sequence*/ 

GOSUB FLASHLENE /♦First Flash hook*/ 

Pause 700 /*Time delay before further action*/ 

If BYPASS ==] then GOTO SKIP_FLASHES /♦Z"** and 3"" flash only necessary for 3 

/♦way calP/ 

GOSUB FLASHLINE /* 2nd Flash hook*/ 

Pause 700 /*Time delay before further action*/ 

GOSUB FLASHLINE /* 3"* Flash hook*/ 

Pause 700 /*Time delay before further action*/ 

SKIP_FLASHES: 



# 
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pause 700 
GOSUB DIALNUMBER 



/*Time delay before initiate redial*/ 
/♦Dial the number with the required prefix*/ 



INfHIBITDIAL: 



GOSUB LINEMONITOR 



/*Stay put until line goes onhook*/ 
/*Stay put until line goes offhook*/ 



GOSUB MONTTORLINE 



GOTO CAPDIGITS 



/*Start listening for digits again*/ 




SUBROUTINE:LINEMONrrOR 
LOOPDTl: 

Set DIALTONE_FLAG fi-om (Telephone Line) 1*0 is ONHOOK, 1 is OFFHOOK*/ 
IF DIALTONE_FLAG indicates OFFHOOK then GOTO LOOPDTl 

Return 



SUBROUTINE:MONITORLINE 

Initialize ON_HOOK_TIME_COUNTER to Zero 



Set DIALTONE_FLAG fi-om (Telephone Line) /*0 is ONHOOK, 1 is OFFHOOK*/ 
IF DIALTONE_FLAG indicates ONHOOK then 
Do 

Increment ON_HOOK_TIME_COLrNTER 
GOTO L00PDT2 
Done 

fi 

IF ON_HOOK_TIME_COUNTER > 800 then set BYPASS to 1 
fi 



L00PDT2: 



Return 
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SUBROUTINE: CAPTUREDIGITS 
CAPTUREDIGITS: 

SETUP dtmf hardware for dtmf READ 
For I = 1 to 1700 /*lnitialize Interdigit count down timer*/ 
Get DIALTONE_FLAG from (Telephone Line) /*If not still OFFHOOK then EXIT to MAIN*/ 
If DIALTONE^FLAG = 0 then GOTO MAIN 
fi 

POLL for dtmf tone from (DTMF RECEIVE CHIP) 

If tone not detected then NEXT I /*Increment Interdigit count down timer*/ 

else 

Increment NUMBER_OF_DIGITS_CAPTURED 

If NUMBER_OF_DIGITS_CAPTURED > (10 -NDX) + 1 then GOTO MAIN 
/♦user dialed more than ♦/ 

/♦prefix digits plus user digits and does not need help here */ 
READ dtmf tone into variable DTMF 
TELNO(NUMBER^OF^DIGITS_CAPTURED) = DTMF 
NEXT I 

/♦Interdigit Timer has timed out, Check for number of digits received*/ 
IFNUMBER_OF_DIGITS_CAPTURED < (10-NDX)+1 then 
Do 

If telno(l) = 12 and telno(2) = 1 then 

Do /*User has requested to input options*/ 

Gosub PARSEOPTIONS 

Goto MAIN /*Initialize with new user options*/ 

Done 

Set NUMBER_OF_DIGITS_CAPTURED = 0 
Done 
Return 

SUBROUTINE: PARSESTRING 
Forj = NDX to 10 

DIAL,STRING(j) = TELNO(j - (NDX - 1)) 
Nextj 
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Return 

SUBROUTINE: FLASHLINE 
GoONHOOK 

Pause 600 msec '600 milliseconds, nominal, can be between 400 and 

'700ms 

Go OFFHOOK 

Return 

SUBROUTINE: DIALNUMBER 

IFPRIVACY_BIT-1 then 
Do 

DTMFOUT(*67) /*Dial the Caller ID Block Code */ 

Done 

IF PRIVAC Y^BIT = 0 then 
Do 

DTMFOUT(*82) /♦Dial the Caller ID Send Code*/ 

Done 

IF ONE_PLUS_BIT = 1 then 
Do 

DTMFOUT(l) /*Dial 1 before the area code, etc*/ 

Done 
For DIGIT = 1 to 10 

DTMFOUT(DIALSTRING(DIGIT)) /*Dial the prefix code and the rest of the 

/*phone number*/ 

Return 

SUBROUTINE: PARSEOPTIONS 

Write to DisplayDevice("PRIVACY?: Y/N) /*Prompt for user to turn Call ID Block ON or */ 

/*OFF*/ 

Gosub CAPOPTIONSTRINGS /*Get user input*/ 
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Write user input to EEPROM 
Read user input from EEPROM 

Write user input from EEPROM to DisplayDevice /*User selection confirmed on */ 



Write to DispIayDevice("l PLUS ON?: Y/N) /*Prompt for user to turn 1 PLUS Dialing 

/♦ON or OFF*/ 
Gosub CAPOPTIONSTRTNGS /*Get user input*/ 
Write user input to EEPROM 
Read user input from EEPROM 

Write user input from EEPROM to DisplayDevice /*User selection confirmed on*/ 



Write to DisplayDevice("ENTER PREFDC# ) /*Prompt for user to enter dialing prefix*/ 
Gosub C APREFDCSTRING /*Get user input of dialing prefix*/ 
Write user input to EEPROM 
While user input from EEPROM o 12 
Do 

Read user input from EEPROM 
Gosub CHECK_FOR„TEN 

Write user input from EEPROM to DisplayDevice /*User entry confirmed on*/ 



/*DisplayDevice*/ 



/♦DisplayDevice*/ 



/♦DisplayDevice*/ 



Done 



Return 



SUBROUTINE: DISPLAYPREFIX 



READ PrefixData from EEPROM 



WRITE PrefixData from EEPROM to DisplayDevice 



Return 



SUBROUTINE: CAPOPTIONSTRINGS 



# 
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Forl=ltol900 



/* Time out if no user input*/ 



When data present from DTMFreceiver 



READ data from DTMFreceiver into option_bit 
Return 
Done 
Next 

Return 

SUBROUTINE: CAPREFKSTRING 
Mu = 0 

For I -1 to 1900 /♦ Time out if no user input*/ 

When data present from DTMFreceiver 
Do 

Mu = mu + 1 

READ data from DTMFreceiver into telno(mu) 
If telno(mu) =12 or mu > 7 then 
Return 

fi 

done 

Next 
Return 



SUBROUTINE; GETMDX 
for i = 1 to 7 

read from start of prefix data from EEPROM into digit 

if digit = 12 then ret_ndx 
next 
return 
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ret ndx: 



ndx = I 



return 



SUBROUTINE: CHECK FOR TEN 



if telno(i) =10 then zeroit 



return 



zeroit: 



telno(i) 0 



/♦Format output for DisplayDevice*/ 



return 



Programmer Application Notes: 

1. Actual programming language used was Parallax, Inc. PBASIC 

2. Processor used was the Parallax, Inc. (www.parallaxinc.com) . BASIC Stamp 11, BS2-IC 

3. The Pause instruction argument is in milliseconds 

4. The processor clock speed is approximately 20MHZ 

5. The PBASIC interpreter executes approximately 3000 instructions per second, i.e. 0.3 milliseconds 
per instruction. Use the 0.3 milliseconds/instruction value to calculate timeouts and delays that are 
implemented using loops. 

6. Contact the inventor at www.dimensional.com/-jbreki/dialer.html for future development and 
application notes. 



Figure 6 



